home *** CD-ROM | disk | FTP | other *** search
/ Mac Treasure Chest - Special Selection 1 / Special-Selection-I-The-Best-of-MEGA-ROM-1993.ISO / INIT⁄Extension / NoICON ﾄ / NoICON.a < prev   
Text File  |  1989-06-04  |  1KB  |  50 lines
  1. ;;    @(#) Zeke:NoICON.a - l嗷dag 3 juni 1989
  2. ;;
  3. ;;    FILE:    NoICON.a
  4. ;;    CRE:    Sven Axelsson
  5. ;;        Sagogangen 1
  6. ;;        S-422 45 Gothenburg
  7. ;;        SWEDEN
  8. ;;        UUCP: d83_sven_a@tekno.chalmers.se
  9. ;;    VER:    1.0
  10. ;;    REV:    l嗷dag 3 juni 1989 22.51.36
  11. ;;    HIST:    89-06-03 (1.0)    First version.
  12. ;;
  13. ;;    This trivially simple INIT resource can be used by people who, like me,
  14. ;;    doesn't like all those little icons that line up at the bottom of the
  15. ;;    screen and make it look so cluttered. It works by fooling Paul Mercer's
  16. ;;    ShowINIT INIT (and compatibles...) to plot the icon off the screen.
  17. ;;    Note that it is not compatible with IconWrap, i.e. IconWrap puts the
  18. ;;    icons back on the screen again.
  19.  
  20.  
  21.         include    'SysEqu.a'
  22.  
  23.  
  24. myH        equ    CurApName+32-4        ;this is where ShowINIT keeps
  25.                         ;the current x-coordinate
  26.                         ;for the icon to plot
  27.                         
  28. checksum    equ    myH+2            ;this is used by ShowINIT to
  29.                         ;check that the coordinate
  30.                         ;hasn't been tampered with
  31.                         
  32. firstX        equ    -32000            ;start the icons at this
  33.                         ;coordinate (way off the screen)
  34.                         
  35. firstCheck    equ    $1620            ;set the checksum to this value
  36.                         ;to fool the ShowINIT mechanism
  37.                         ;to think it has been normally
  38.                         ;initialized
  39.  
  40.  
  41. noICON:        proc    export
  42.  
  43.         move.w    #firstX,myH
  44.         move.w    #firstCheck,checksum
  45.  
  46.         rts
  47.         
  48.         endproc                ;that's all!
  49.         
  50.         end